home *** CD-ROM | disk | FTP | other *** search
/ SuperHack / SuperHack CD.bin / SCRIPTZ / CHAOS.ZIP / REMOTE.INI < prev    next >
INI File  |  1997-01-17  |  19KB  |  365 lines
  1. [Variables]
  2. n0=%whohop 0
  3. n1=%whochan #mirc_Scripts
  4. n2=%whoaway 0
  5. n3=%whovoice 0
  6. n4=%whocnum 0
  7. n5=%whoircop 0
  8. n6=%ltra @αßΓπΣσ└┴┬├─┼¬
  9. n7=%ltrb bB▀
  10. n8=%ltrc ╟τcCó⌐
  11. n9=%ltrd dD╨
  12. n10=%ltre eEΘΩδΦú╚╔╩╦
  13. n11=%ltrf fF
  14. n12=%ltrg gG
  15. n13=%ltrh hH
  16. n14=%ltri !iIí∩ε∞φ░╬╧
  17. n15=%ltrj jJ
  18. n16=%ltrk kK
  19. n17=%ltrl |Ll
  20. n18=%ltrm mM
  21. n19=%ltrn ±╤nN
  22. n20=%ltro *ñ0░║╥≥≤╙╘⌠⌡╒╓÷°╪
  23. n21=%ltrp pP
  24. n22=%ltrq ╢qQ
  25. n23=%ltrr rR«
  26. n24=%ltrs $sSº
  27. n25=%ltrt +tT
  28. n26=%ltru ╡uU√∙·┘┌█▄ⁿ
  29. n27=%ltrv vV
  30. n28=%ltrw wW
  31. n29=%ltrx ╫xX
  32. n30=%ltry  Ñ²▌ 
  33. n31=%ltrz zZ% 
  34. n32=%ltr? ┐?
  35. n33=%ltr! !
  36. n34=%string i am just doing this so i can kick wired i think this is enough
  37. n35=%substringnum 64
  38. n36=%smartmsg on
  39. n37=%colr 5
  40. n38=%helped 1
  41. n39=%help -½⌐(-)ß÷$╗-áHelpáWindow
  42. n40=%default.tb ░░Ä Ä ⌐(-)┼╙S Ä Ä░░ by: pHrEe
  43. n41=%tbfile.test test.tb
  44. n42=%tblines.test 22
  45. n43=%tbcline.test 22
  46. n44=%totdcc 2
  47. n45=%dccchat 3
  48. n46=%allpeople ~|~Aptiva~|~Dipstick~|~Cordman~|~
  49. n47=%tbcline.phree 4
  50. n48=%tbfile.phree phree.tb
  51. n49=%tblines.phree 13
  52. n50=%exist on
  53. n51=%txt4  1,8iá5,9w3,11a4,12n14,1tá11,3t12,4h10,2a14,6tá11,6s8,2t6,11u8,3p5,8i8,3dá9,2c2,14o8,4l5,11o2,14rá13,5t15,2h5,10i5,13n3,15gá5,14o2,10fá3,9w1,13i4,12r14,6e8,4d4,12sá9,3t5,8oá10,1k12,5i5,15c2,8ká1,14m13,3eá14,6s3,8oá15,6h13,5o3,13p2,14e9,2f12,2u13,5l14,4l2,11yá6,14t3,12h1,9i15,6sá6,14i12,2sá10,6e2,10n11,5o9,3u4,8g1,10há6,11c3,9o4,10l5,9o15,6r4,10s
  54. n52=%len2 432
  55. n53=%hour 11
  56. n54=%text 141
  57. n55=%question is anyone in here alive ?
  58. n56=%ya 0
  59. n57=%nay 0
  60. n58=%mything cool
  61. n59=%cloner /msg #mirc_scripts 4,1
  62. n60=%count 24
  63. n61=%crpnick 8
  64. n62=%crpchan #mirc_scripts
  65. n63=%pmchan nope
  66. n64=%pt 0
  67. n65=%chan #mirc_scripts
  68. n66=%split2 voyager
  69. n67=%cool or this
  70. n68=%pinged 9
  71. n69=%sections 0
  72. n70=%reverseme testing
  73. n71=%backtext gnitset
  74. n72=%tempback t
  75. n73=%reversed_text gnitset
  76. n74=%temp gnitset
  77. n75=%final gnitset
  78. n76=%endreverse gnitset
  79. n77=%num 29
  80. n78=%color y
  81. n79=%num2 1
  82. n80=%num3 9
  83. n81=%ftalk 7T6δ6º7T10ε15±8G
  84. n82=%rainbow testing
  85. n83=%text.change 8
  86. n84=%text2add 15g
  87. n85=%textfinal 7t2e7s11t6i1n15g
  88. n86=%screw'em 1
  89. n87=%msg 1,9l4,1o1,9o4,1k1,9 4,1a1,9t4,1 1,9t4,1h1,9e4,1 1,9o4,1n1,9e4,1 1,9i4,1 1,9d4,1i1,9d4,1n1,9t4,1 1,9m4,1a1,9k4,1e
  90. n88=%wierdbit 5 H
  91. n89=%wphrase 2! 10┬12M 6J6∙1s4T 6D15≤1ε3±10G 13+15h2∞7º 3s14╘ 7φ 3╟5σ5N 5K3φ12╟7k 14w5φ10r3E6d 1∞ 2t10h15∞1n1k 4t15h2░5$ 2!14º 10Φ1N7÷3▄1g5H
  92. n90=%length 2
  93.  
  94. [Commands]
  95. n0=1:PAGE:/msg $nick I have recieved your page.  Please hold until I am available.
  96. n1=1:PING:/inc %pinged 1 | /msg nick I have been pinged %pinged times including yours.
  97. n2=1:DO:/msg $nick Come on, thats lame.
  98.  
  99. [Raw]
  100. n0=#who disabled
  101. n1=311:*: {
  102. n2=  msg %chan 9*******-=4,12 $+ $parm2 $+ 9=-********
  103. n3=  msg %chan 12 $parm3*
  104. n4=}
  105. n5=313:*: {
  106. n6=  msg %chan 12 $parm3*
  107. n7=}
  108. n8=319:*: {
  109. n9=  msg %chan 12 $parm3*
  110. n10=}
  111. n11=312:*: {
  112. n12=  msg %chan 12 $parm3*
  113. n13=}
  114. n14=#who end
  115. n15=#fwho start
  116. n16=311:*: {
  117. n17=  msg %chan 9*******-=4,12 $+ $parm2 $+ 9=-********
  118. n18=  msg %chan 12 $parm3*
  119. n19=}
  120. n20=313:*: {
  121. n21=  msg %chan 12 $parm3*
  122. n22=}
  123. n23=319:*:{
  124. n24=  msg %chan 12 #mirc_scripts @#gaymen @#family-sex
  125. n25=} 
  126. n26=312:*: {
  127. n27=  msg %chan 12 $parm3*
  128. n28=}
  129. n29=#fwho end
  130. n30=#ircopscan disabled
  131. n31=352:* {
  132. n32=  if (%option == 1) { write $mircdir $+ raw.txt /echo 2 %window $parm6 * $+ $parm5 | inc %total | halt }
  133. n33=  if (%option == 2) { write $mircdir $+ raw.txt /msg %window $parm6 * $+ $parm5 | inc %total | halt }
  134. n34=}
  135. n35=315:* {
  136. n36=  if (%option == 1) { write $mircdir $+ raw.txt /echo 4 %window :ì: End of List! Total: %total :ì: }
  137. n37=  if (%option == 2) { write $mircdir $+ raw.txt /msg %window :ì: End of List! Total: %total :ì: }
  138. n38=  play -c $me $mircdir $+ raw.txt 600 | unset %total | unset %option | unset %window | .disable #ircopscan | halt
  139. n39=}
  140. n40=#ircopscan end
  141. n41=#counter disabled
  142. n42=352:*: {
  143. n43=  if ($chr(43) isin $parm7) { inc %whovoice 1 }
  144. n44=  if (G isin $parm7) { inc %whoaway 1 }
  145. n45=  if ($chr(42) isin $parm7) { inc %whoircop 1 }
  146. n46=  if ($parm3 $+ @ $+  $parm4 isin %whoaddress) { inc %whocnum 1 }
  147. n47=  if ($parm3 $+ @ $+  $parm4 !isin %whoaddress) { set %whoaddress %whoaddress $parm3 $+ @ $+  $parm4 }
  148. n48=  inc %whohop $parm8
  149. n49=  set %whochan $parm2
  150. n50=}
  151. n51=315:*: {
  152. n52=  set %whohop %whohop / $nick(0,%whochan)
  153. n53=  echo 4 $active ░░Ä Ä ⌐(-)┼╙S Ä Ä░░ ⌐h¬±╤ΩL ⌐╓·±TΩ« %whochan
  154. n54=  echo 4 $active -Chan OP(s): $opnick(0, %whochan)           -Voice(s): %whovoice
  155. n55=  echo 4 $active -Aways(s): %whoaway              -IRC OP(s): %whoircop
  156. n56=  echo 4 $active -Avg Hop(s): %whohop          -Total: $nick(0, %whochan)
  157. n57=  echo 4 $active -Clone(s): %whoCnum
  158. n58=  echo 4 $active ░░Ä Ä ⌐(-)┼╙S Ä Ä░░ ⌐h¬±╤ΩL ⌐╓·±TΩ« ▀  pHrEe
  159. n59=  set %whoircop 0
  160. n60=  set %whoaway 0
  161. n61=  set %whovoice 0
  162. n62=  set %whohop 0
  163. n63=  set %whocnum 0
  164. n64=  unset %whoaddress
  165. n65=}
  166. n66=#counter end
  167. n67=#stats disabled
  168. n68=352:*:{
  169. n69=  if ($parm2 == %statchan) {
  170. n70=    inc %StatsTotal 1
  171. n71=    if (@ isin $parm7) { inc %StatsChanOps 1 }
  172. n72=    if (@ !isin $parm7) { inc %StatsNonOps 1 }
  173. n73=    if (* isin $parm7) { inc %StatsIRCops 1 }
  174. n74=    if (+ isin $parm7) { inc %StatsVoiced 1 }
  175. n75=    if (G isin $parm7) { inc %StatsAway 1 }
  176. n76=    if (H isin $parm7) { inc %StatsHere 1 }
  177. n77=    if ($parm4 isin %StatsAddress) { inc %StatsClones 1 }
  178. n78=    %StatsAddress = %StatsAddress $parm4
  179. n79=    halt
  180. n80=  }
  181. n81=}
  182. n82=315:*:{
  183. n83=  if ($parm2 == %statchan) {
  184. n84=    if (%StatsChanOps == $null) { set %StatsChanOps 0 }
  185. n85=    if (%StatsNonOps == $null) { set %StatsNonOps 0 }
  186. n86=    if (%StatsIRCops == $null) { set %StatsIRCops 0 }
  187. n87=    if (%StatsVoiced == $null) { set %StatsVoiced 0 }
  188. n88=    if (%StatsAway == $null) { set %StatsAway 0 }
  189. n89=    if (%StatsHere == $null) { set %StatsHere 0 }
  190. n90=    if (%StatsClones == $null) { set %StatsClones 0 }
  191. n91=    %Stats10ChanOps = [ %StatsChanOps ] * [ 1000 ]
  192. n92=    %Stats10NonOps = [ %StatsNonOps ] * [ 1000 ]
  193. n93=    %Stats10IRCops = [ %StatsIRCOps ] * [ 1000 ]
  194. n94=    %Stats10Voiced = [ %StatsVoiced ] * [ 1000 ]
  195. n95=    %Stats10Away = [ %StatsAway ] * [ 1000 ]
  196. n96=    %Stats10Here = [ %StatsHere ] * [ 1000 ]
  197. n97=    %Stats10Clones = [ %StatsClones ] * [ 1000 ]
  198. n98=    %StatsPerChanOps = [ %Stats10ChanOps ] / [ %StatsTotal ]
  199. n99=    %StatsPerNonOps = [ %Stats10NonOps ] / [ %StatsTotal ]
  200. n100=    %StatsPerIRCops = [ %Stats10IRCOps ] / [ %StatsTotal ]
  201. n101=    %StatsPerVoiced = [ %Stats10Voiced ] / [ %StatsTotal ]
  202. n102=    %StatsPerAway = [ %Stats10Away ] / [ %StatsTotal ]
  203. n103=    %StatsPerHere = [ %Stats10Here ] / [ %StatsTotal ]
  204. n104=    %StatsPerClones = [ %Stats10Clones ] / [ %StatsTotal ]
  205. n105=    if (($len(%StatsPerChanOps) == 1) && (%StatsPerChanOps != 0)) { set %StatsPerChanOps . $+ %StatsPerChanOps | goto next1 }
  206. n106=    if ($len(%StatsPerChanOps) == 2) { set %StatsPerChanOps $left(1,%StatsPerChanOps) $+ . $+ $right(2,%StatsPerChanOps) | goto next1 }
  207. n107=    if ($len(%StatsPerChanOps) == 3) { set %StatsPerChanOps $left(2,%StatsPerChanOps) $+ . $+ $right(2,%StatsPerChanOps) | goto next1 }
  208. n108=    if ($len(%StatsPerChanOps) == 4) { set %StatsPerChanOps $left(3,%StatsPerChanOps) $+ . $+ $right(2,%StatsPerChanOps) | goto next1 }
  209. n109=    if ($len(%StatsPerChanOps) == 5) { set %StatsPerChanOps $left(3,%StatsPerChanOps) $+ . $+ $right(2,%StatsPerChanOps) | goto next1 }
  210. n110=    :next1
  211. n111=    if (($len(%StatsPerNonOps) == 1) && (%StatsPerNonOps != 0)) { set %StatsPerNonOps . $+ %StatsPerNonOps | goto next2 }
  212. n112=    if ($len(%StatsPerNonOps) == 2) { set %StatsPerNonOps $left(1,%StatsPerNonOps) $+ . $+ $right(2,%StatsPerNonOps) | goto next2 }
  213. n113=    if ($len(%StatsPerNonOps) == 3) { set %StatsPerNonOps $left(2,%StatsPerNonOps) $+ . $+ $right(2,%StatsPerNonOps) | goto next2 }
  214. n114=    if ($len(%StatsPerNonOps) == 4) { set %StatsPerNonOps $left(3,%StatsPerNonOps) $+ . $+ $right(2,%StatsPerNonOps) | goto next2 }
  215. n115=    if ($len(%StatsPerNonOps) == 5) { set %StatsPerNonOps $left(3,%StatsPerNonOps) $+ . $+ $right(2,%StatsPerNonOps) | goto next2 }
  216. n116=    :next2
  217. n117=    if (($len(%StatsPerIRCOps) == 1) && (%StatsPerIRCOps != 0)) { set %StatsPerIRCOps . $+ %StatsPerIRCOps | goto next3 }
  218. n118=    if ($len(%StatsPerIRCOps) == 2) { set %StatsPerIRCOps $left(1,%StatsPerIRCOps) $+ . $+ $right(2,%StatsPerIRCOps) | goto next3 }
  219. n119=    if ($len(%StatsPerIRCOps) == 3) { set %StatsPerIRCOps $left(2,%StatsPerIRCOps) $+ . $+ $right(2,%StatsPerIRCOps) | goto next3 }
  220. n120=    if ($len(%StatsPerIRCOps) == 4) { set %StatsPerIRCOps $left(3,%StatsPerIRCOps) $+ . $+ $right(2,%StatsPerIRCOps) | goto next3 }
  221. n121=    if ($len(%StatsPerIRCOps) == 5) { set %StatsPerIRCOps $left(3,%StatsPerIRCOps) $+ . $+ $right(2,%StatsPerIRCOps) | goto next3 }
  222. n122=    :next3
  223. n123=    if (($len(%StatsPerVoiced) == 1) && (%StatsPerVoiced != 0)) { set %StatsPerVoiced . $+ %StatsPerVoiced | goto next4 }
  224. n124=    if ($len(%StatsPerVoiced) == 2) { set %StatsPerVoiced $left(1,%StatsPerVoiced) $+ . $+ $right(2,%StatsPerVoiced) | goto next4 }
  225. n125=    if ($len(%StatsPerVoiced) == 3) { set %StatsPerVoiced $left(2,%StatsPerVoiced) $+ . $+ $right(2,%StatsPerVoiced) | goto next4 }
  226. n126=    if ($len(%StatsPerVoiced) == 4) { set %StatsPerVoiced $left(3,%StatsPerVoiced) $+ . $+ $right(2,%StatsPerVoiced) | goto next4 }
  227. n127=    if ($len(%StatsPerVoiced) == 5) { set %StatsPerVoiced $left(3,%StatsPerVoiced) $+ . $+ $right(2,%StatsPerVoiced) | goto next4 }
  228. n128=    :next4
  229. n129=    if (($len(%StatsPerAway) == 1) && (%StatsPerAway != 0)) { set %StatsPerAway . $+ %StatsPerAway | goto next5 }
  230. n130=    if ($len(%StatsPerAway) == 2) { set %StatsPerAway $left(1,%StatsPerAway) $+ . $+ $right(2,%StatsPerAway) | goto next5 }
  231. n131=    if ($len(%StatsPerAway) == 3) { set %StatsPerAway $left(2,%StatsPerAway) $+ . $+ $right(2,%StatsPerAway) | goto next5 }
  232. n132=    if ($len(%StatsPerAway) == 4) { set %StatsPerAway $left(3,%StatsPerAway) $+ . $+ $right(2,%StatsPerAway) | goto next5 }
  233. n133=    if ($len(%StatsPerAway) == 5) { set %StatsPerAway $left(3,%StatsPerAway) $+ . $+ $right(2,%StatsPerAway) | goto next5 }
  234. n134=    :next5
  235. n135=    if (($len(%StatsPerHere) == 1) && (%StatsPerHere != 0)) { set %StatsPerHere . $+ %StatsPerHere | goto next6 }
  236. n136=    if ($len(%StatsPerHere) == 2) { set %StatsPerHere $left(1,%StatsPerHere) $+ . $+ $right(2,%StatsPerHere) | goto next6 }
  237. n137=    if ($len(%StatsPerHere) == 3) { set %StatsPerHere $left(2,%StatsPerHere) $+ . $+ $right(2,%StatsPerHere) | goto next6 }
  238. n138=    if ($len(%StatsPerHere) == 4) { set %StatsPerHere $left(3,%StatsPerHere) $+ . $+ $right(2,%StatsPerHere) | goto next6 }
  239. n139=    if ($len(%StatsPerHere) == 5) { set %StatsPerHere $left(3,%StatsPerHere) $+ . $+ $right(2,%StatsPerHere) | goto next6 }
  240. n140=    :next6
  241. n141=    if (($len(%StatsPerClones) == 1) && (%StatsPerClones != 0)) { set %StatsPerClones . $+ %StatsPerClones | goto next7 }
  242. n142=    if ($len(%StatsPerClones) == 2) { set %StatsPerClones $left(1,%StatsPerClones) $+ . $+ $right(2,%StatsPerClones) | goto next7 }
  243. n143=    if ($len(%StatsPerClones) == 3) { set %StatsPerClones $left(2,%StatsPerClones) $+ . $+ $right(2,%StatsPerClones) | goto next7 }
  244. n144=    if ($len(%StatsPerClones) == 4) { set %StatsPerClones $left(3,%StatsPerClones) $+ . $+ $right(2,%StatsPerClones) | goto next7 }
  245. n145=    if ($len(%StatsPerClones) == 5) { set %StatsPerClones $left(3,%StatsPerClones) $+ . $+ $right(2,%StatsPerClones) | goto next7 }
  246. n146=    :next7
  247. n147=    if ($right(2,%StatsPerChanOps) == 00) {
  248. n148=      if ($len(%StatsPerChanOps) == 4) { set %StatsPerChanOps $left(1,%StatsPerChanOps) }
  249. n149=      if ($len(%StatsPerChanOps) == 5) { set %StatsPerChanOps $left(2,%StatsPerChanOps) }
  250. n150=      if ($len(%StatsPerChanOps) == 6) { set %StatsPerChanOps $left(3,%StatsPerChanOps) }
  251. n151=    }
  252. n152=    if ($right(2,%StatsPerNonOps) == 00) {
  253. n153=      if ($len(%StatsPerNonOps) == 4) { set %StatsPerNonOps $left(1,%StatsPerNonOps) }
  254. n154=      if ($len(%StatsPerNonOps) == 5) { set %StatsPerNonOps $left(2,%StatsPerNonOps) }
  255. n155=      if ($len(%StatsPerNonOps) == 6) { set %StatsPerNonOps $left(3,%StatsPerNonOps) }
  256. n156=    }
  257. n157=    if ($right(2,%StatsPerIRCOps) == 00) {
  258. n158=      if ($len(%StatsPerIRCOps) == 4) { set %StatsPerIRCOps $left(1,%StatsPerIRCOps) }
  259. n159=      if ($len(%StatsPerIRCOps) == 5) { set %StatsPerIRCOps $left(2,%StatsPerIRCOps) }
  260. n160=      if ($len(%StatsPerIRCOps) == 6) { set %StatsPerIRCOps $left(3,%StatsPerIRCOps) }
  261. n161=    }
  262. n162=    if ($right(2,%StatsPerVoiced) == 00) {
  263. n163=      if ($len(%StatsPerVoiced) == 4) { set %StatsPerVoiced $left(1,%StatsPerVoiced) }
  264. n164=      if ($len(%StatsPerVoiced) == 5) { set %StatsPerVoiced $left(2,%StatsPerVoiced) }
  265. n165=      if ($len(%StatsPerVoiced) == 6) { set %StatsPerVoiced $left(3,%StatsPerVoiced) }
  266. n166=    }
  267. n167=    if ($right(2,%StatsPerAway) == 00) {
  268. n168=      if ($len(%StatsPerAway) == 4) { set %StatsPerAway $left(1,%StatsPerAway) }
  269. n169=      if ($len(%StatsPerAway) == 5) { set %StatsPerAway $left(2,%StatsPerAway) }
  270. n170=      if ($len(%StatsPerAway) == 6) { set %StatsPerAway $left(3,%StatsPerAway) }
  271. n171=    }
  272. n172=    if ($right(2,%StatsPerHere) == 00) {
  273. n173=      if ($len(%StatsPerHere) == 4) { set %StatsPerHere $left(1,%StatsPerHere) }
  274. n174=      if ($len(%StatsPerHere) == 5) { set %StatsPerHere $left(2,%StatsPerHere) }
  275. n175=      if ($len(%StatsPerHere) == 6) { set %StatsPerHere $left(3,%StatsPerHere) }
  276. n176=    }
  277. n177=    if ($right(1,%StatsPerChanOps) == 0) {
  278. n178=      if ($len(%StatsPerChanOps) == 4) { set %StatsPerChanOps $left(1,%StatsPerChanOps) }
  279. n179=      if ($len(%StatsPerChanOps) == 5) { set %StatsPerChanOps $left(2,%StatsPerChanOps) }
  280. n180=      if ($len(%StatsPerChanOps) == 6) { set %StatsPerChanOps $left(3,%StatsPerChanOps) }
  281. n181=    }
  282. n182=    if ($right(1,%StatsPerNonOps) == 0) {
  283. n183=      if ($len(%StatsPerNonOps) == 4) { set %StatsPerNonOps $left(1,%StatsPerNonOps) }
  284. n184=      if ($len(%StatsPerNonOps) == 5) { set %StatsPerNonOps $left(2,%StatsPerNonOps) }
  285. n185=      if ($len(%StatsPerNonOps) == 6) { set %StatsPerNonOps $left(3,%StatsPerNonOps) }
  286. n186=    }
  287. n187=    if ($right(1,%StatsPerIRCOps) == 0) {
  288. n188=      if ($len(%StatsPerIRCOps) == 4) { set %StatsPerIRCOps $left(1,%StatsPerIRCOps) }
  289. n189=      if ($len(%StatsPerIRCOps) == 5) { set %StatsPerIRCOps $left(2,%StatsPerIRCOps) }
  290. n190=      if ($len(%StatsPerIRCOps) == 6) { set %StatsPerIRCOps $left(3,%StatsPerIRCOps) }
  291. n191=    }
  292. n192=    if ($right(1,%StatsPerVoiced) == 0) {
  293. n193=      if ($len(%StatsPerVoiced) == 4) { set %StatsPerVoiced $left(3,%StatsPerVoiced) }
  294. n194=      if ($len(%StatsPerVoiced) == 5) { set %StatsPerVoiced $left(4,%StatsPerVoiced) }
  295. n195=      if ($len(%StatsPerVoiced) == 6) { set %StatsPerVoiced $left(5,%StatsPerVoiced) }
  296. n196=    }
  297. n197=    if ($right(1,%StatsPerAway) == 0) {
  298. n198=      if ($len(%StatsPerAway) == 4) { set %StatsPerAway $left(3,%StatsPerAway) }
  299. n199=      if ($len(%StatsPerAway) == 5) { set %StatsPerAway $left(4,%StatsPerAway) }
  300. n200=      if ($len(%StatsPerAway) == 6) { set %StatsPerAway $left(5,%StatsPerAway) }
  301. n201=    }
  302. n202=    if ($right(1,%StatsPerHere) == 0) {
  303. n203=      if ($len(%StatsPerHere) == 4) { set %StatsPerHere $left(3,%StatsPerHere) }
  304. n204=      if ($len(%StatsPerHere) == 5) { set %StatsPerHere $left(4,%StatsPerHere) }
  305. n205=      if ($len(%StatsPerHere) == 6) { set %StatsPerHere $left(5,%StatsPerHere) }
  306. n206=    }
  307. n207=    if ($right(1,%StatsPerClones) == 0) {
  308. n208=      if ($len(%StatsPerClones) == 4) { set %StatsPerClones $left(3,%StatsPerClones) }
  309. n209=      if ($len(%StatsPerClones) == 5) { set %StatsPerClones $left(4,%StatsPerClones) }
  310. n210=      if ($len(%StatsPerClones) == 6) { set %StatsPerClones $left(5,%StatsPerClones) }
  311. n211=    }
  312. n212=    msg %statchan 4<>5Stats for %statchan $+ :
  313. n213=    msg %statchan 4<> 3Total:12 $+ %StatsTotal 3ChanOps:12 $+ %StatsChanOps $+ (12 $+ %StatsPerChanOps $+ $chr(37) $+ ) 3NonOps:12 $+ %StatsNonOps  $+ (12 $+ %StatsPerNonOps $+ $chr(37) $+ ) 3IRCops:12 $+ %StatsIRCops  $+ (12 $+ %StatsPerIRCops $+ $chr(37) $+ ) 3Voiced:12 $+ %StatsVoiced  $+ (12 $+ %StatsPerVoiced $+ $chr(37) $+ ) 3Away:12 $+ %StatsAway  $+ (12 $+ %StatsPerAway $+ $chr(37) $+ ) 3Here:12 $+ %StatsHere $+ (12 $+ %StatsPerHere $+ $chr(37) $+ ) 3Clones:12 $+ %StatsClones  $+ (12 $+ %StatsPerClones $+ $chr(37) $+ )
  314. n214=    unset %stat*
  315. n215=    halt
  316. n216=  }
  317. n217=}
  318. n218=#stats end
  319. n219=#crpchk start
  320. n220=319:*:/if ((sex isin $parm3*) || (pix isin $parm3*) || (porn isin $parm3*) || (pics isin $parm3*)) { /ban %crpchan $nick(%crpnick,%crpchan) 3 | /kick %crpchan $nick(%crpnick,%crpchan) Take your porn elsewhere! } | /inc %crpnick 1 | /if %crpnick > $nick(0,%crpchan) goto next | /else /whois $nick(%crpnick,%crpchan) | /goto end | :next | /timer6 1 4 /disable #crpchk | :end
  321. n221=#crpchk end
  322. n222=#screw disabled
  323. n223=311:* {
  324. n224=  If (%screw'em == 1) {
  325. n225=    set %screwnick *!*@ $+ $parm4
  326. n226=    %screwnick = $replace(%screwnick, $rand(A,Z), ?)
  327. n227=    %screwnick = $replace(%screwnick, $rand(A,Z), ?)
  328. n228=    %screwnick = $replace(%screwnick, $rand(A,Z), ?)
  329. n229=    %screwnick = $replace(%screwnick, $rand(A,Z), ?)
  330. n230=    %screwnick = $replace(%screwnick, $rand(0,9), ?)
  331. n231=    %screwnick = $replace(%screwnick, $rand(0,9), ?)
  332. n232=    %screwnick = $replace(%screwnick, $rand(0,9), ?)
  333. n233=    %screwnick = $replace(%screwnick, $rand(0,9), ?)
  334. n234=    mode %chan +b %screwnick
  335. n235=    unset %chan, %screwnick
  336. n236=    disable #screw
  337. n237=  }
  338. n238=  If (%screw'em == 1) {
  339. n239=    set %screwnick *!*@ $+ $parm4
  340. n240=    %screwnick = $replace(%screwnick, $rand(A,Z), ?)
  341. n241=    %screwnick = $replace(%screwnick, $rand(A,Z), ?)
  342. n242=    %screwnick = $replace(%screwnick, $rand(A,Z), ?)
  343. n243=    %screwnick = $replace(%screwnick, $rand(A,Z), ?)
  344. n244=    %screwnick = $replace(%screwnick, $rand(0,9), ?)
  345. n245=    %screwnick = $replace(%screwnick, $rand(0,9), ?)
  346. n246=    %screwnick = $replace(%screwnick, $rand(0,9), ?)
  347. n247=    %screwnick = $replace(%screwnick, $rand(0,9), ?)
  348. n248=    mode %chan +b %screwnick
  349. n249=  }
  350. n250=  If (%screw'em == 1) {
  351. n251=    set %screwnick *!*@ $+ $parm4
  352. n252=    %screwnick = $replace(%screwnick, $rand(A,Z), ?)
  353. n253=    %screwnick = $replace(%screwnick, $rand(A,Z), ?)
  354. n254=    %screwnick = $replace(%screwnick, $rand(A,Z), ?)
  355. n255=    %screwnick = $replace(%screwnick, $rand(A,Z), ?)
  356. n256=    %screwnick = $replace(%screwnick, $rand(0,9), ?)
  357. n257=    %screwnick = $replace(%screwnick, $rand(0,9), ?)
  358. n258=    %screwnick = $replace(%screwnick, $rand(0,9), ?)
  359. n259=    %screwnick = $replace(%screwnick, $rand(0,9), ?)
  360. n260=    mode %chan +b %screwnick
  361. n261=    unset %chan, %screwnick
  362. n262=  }
  363. n263=}
  364. n264=#screw end
  365.